home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
CUJ9206.ARJ
/
1006089A
< prev
next >
Wrap
Text File
|
1992-06-02
|
573b
|
38 lines
/* LISTING 3 */
#include <stdlib.h>
double block[200];
double * getblock1(int);
double * getblock2(int);
f3()
{
int i;
double *p, *q, *r;
p = getblock1(200);
q = getblock1(200);
r = getblock1(200);
for( i=0; i<200; ++i )
*p++ = *q++ / *r++;
p = getblock2(1);
q = getblock2(0);
r = getblock2(0);
for( i=1; i<200; ++i )
*p++ = *q++ / *r++;
}
double * getblock1(int n)
{
return (double *) malloc(n * sizeof(double));
}
double * getblock2(int n)
{
return block+n;
}